home *** CD-ROM | disk | FTP | other *** search
/ Aminet 13 / Aminet 13 - August 1996.iso / Aminet / mus / edit / Protracker358.lha / protracker358 / Install.deutsch next >
Text File  |  1996-06-25  |  4KB  |  133 lines
  1. ;ProTracker Pro INSTALLATION SCRIPT © TEC DESIGN
  2. ;VER: $1.2E 21.06.1996 (LHA)
  3.  
  4. (set @app-name "ProTracker Pro") 
  5. (set @language "deutsch")
  6. (set @abort-button "Installation abbrechen")
  7. (set @error-msg "Fehler!")
  8. (set @pretend 0)
  9. (set @special-msg "Schwerer Fehler!")
  10. (set @user-level 2)
  11.  
  12. (welcome "Willommen zur Protracker 3.58 Installation.\nAnm: Sie MÜSSEN von Festplatte gebootet haben!")
  13. (set Ok 0)
  14. (complete 0)
  15.  
  16. (set pt_dir (getassign "ProTracker" "a")) 
  17.   (
  18.      (set pt_dir
  19.         (askdir
  20.            (prompt
  21.               "Wählen Sie den Pfad, wohin Protracker\n"
  22.               "installiert werden soll.\n"
  23.                "Ein neuer Ordner namens 'Protracker'\n "
  24.               "wird dort erzeugt.\n"
  25.            (help
  26.               "Installation des Basisprogramms und der Hilfedatei\n")
  27.            (default "SYS:"))
  28.         )
  29.      )
  30.      (set pt_dir (tackon pt_dir "ProTracker"))
  31.  
  32.      ;CREATE PT DRAWER
  33.      (if (<> (exists pt_dir) 2) (makedir pt_dir (infos)))
  34.  
  35.   )
  36. (copyfiles
  37.    (prompt "Kopiere Basisdateien...")
  38.    (help "Kopiert das Basispogramm sowie die verfügbaren Amigaguide-Dateien zum gewählten Ziel in einen neu erzeugten Ordner namens 'Protracker'")
  39.    (source "Main/")
  40.    (dest pt_dir)
  41.    (pattern "#?")
  42.    (safe)
  43.    (infos)
  44.    (confirm)
  45.    (optional nofail askuser)
  46. )
  47. (complete 40)
  48.  
  49. ;copying of the help data file in s:
  50.  
  51. (copyfiles
  52.    (prompt "Kopiere Hilfe-Datei")
  53.    (help "Diese Datei stellt die interne Hilfe des Protracker nach Druck auf 'HELP' zur Verfügung.")
  54.    (source "Data/")
  55.    (dest "S:")
  56.    (pattern "pt.help")
  57.    (safe)
  58.    (infos)
  59.    (confirm)
  60.    (optional nofail askuser)
  61. )
  62. (complete 50)
  63.  
  64.  
  65.  
  66. (copyfiles
  67.    (prompt "Installation der Beispielkonfigurationen.\n\nAchtung: ab V3.55 sind alte Configs nicht mehr nutzbar!.\n")
  68.    (help "Nützliche Beispielkonfigurationen für den Schnelleinstieg installierbar.")
  69.    (source "Data/")
  70.    (dest "S:")
  71.    (pattern "pt.config#?")
  72.    (safe)
  73.    (infos)
  74.    (confirm)
  75.    (optional nofail askuser)
  76. )
  77. (complete 70)
  78.  
  79.  
  80. ;if not anythere install ST-00 standarts
  81. (set st_dir (getassign "ST-00" "a")) 
  82.   (
  83.      (set st_dir
  84.         (askdir
  85.            (prompt
  86.               "Wählen Sie einen Pfad, wo bei Bedarf der ST-00-Ordner\n"
  87.               "angelegt werden soll. Protracker benötigt ihn zur Ablage\n"
  88.               "seiner externen Musikdaten und ein Assign darauf, was\n"
  89.               "hiermit erzeugt wird. Wenn Sie updaten wählen Sie Ihre\n"
  90.               "ST-00-Zuweisung, es wird nichts überschrieben!\n"
  91.            (help
  92.               "Auswahl des ST-00-Pfades tätigen.\n")
  93.            (default pt_dir))
  94.         )
  95.      )
  96.      (set st_dir (tackon st_dir "ST-00"))
  97.  
  98.      ;CREATE ST DRAWER
  99.      (if (<> (exists st_dir) 2) (makedir st_dir (infos)))
  100.  
  101.      ;create ST subdrawerd
  102.      (set md_dir (tackon st_dir "modules"))
  103.      (if (<> (exists md_dir) 2) (makedir md_dir (infos)))
  104.  
  105.      (set so_dir (tackon st_dir "songs"))
  106.      (if (<> (exists so_dir) 2) (makedir so_dir (infos)))
  107.  
  108.      (set sa_dir (tackon st_dir "samples"))
  109.      (if (<> (exists sa_dir) 2) (makedir sa_dir (infos)))
  110.  
  111.      (set pa_dir (tackon st_dir "patterns"))
  112.      (if (<> (exists pa_dir) 2) (makedir pa_dir (infos)))
  113.  
  114.      (set ins_dir (tackon st_dir "instruments"))
  115.      (if (<> (exists ins_dir) 2) (makedir ins_dir (infos)))
  116.  
  117.      (set exe_dir (tackon st_dir "executables"))
  118.      (if (<> (exists exe_dir) 2) (makedir exe_dir (infos)))
  119.  
  120.   )
  121. (complete 90)
  122. (set start-lines (cat "assign ST-00: " st_dir))
  123. (startup @app-name (prompt "\nDie folgenden Zeilen werden nun in Ihrer "
  124.                                "user-startup eingefügt:\nassign ST-00: "
  125.                                st_dir "\n")
  126.                        (command start-lines)
  127. (help "Protracker benötigt zur korrekten Funktionsweise ein ST-00-Assign")
  128. )
  129. ;installation complete
  130.  
  131. (complete 100)
  132. (exit "Protracker-Installation erfolgreich beendet. Wenn Sie programmieren, können Sie einen Blick in den Ordner 'source' tun...\n\n\n\nViel Spaß!\n\n")
  133.